home *** CD-ROM | disk | FTP | other *** search
/ Power Bytes: Money & Finance / PowerBytes Money and Finance CD-ROM 01 / PowerBytes Money and Finance CD-ROM 01.iso / Demos / MacSmurf Demo / Sample Designs / BASIC CALCS < prev    next >
Encoding:
Text File  |  1986-08-13  |  1.5 KB  |  47 lines  |  [TEXT/SURF]
  1. $THESE CALCULATIONS REQUIRE UNITS TO BE SET TO METRES
  2.  
  3. $ ACCUMULATE AREAS FOR DISPLACEMENT
  4. a1 = sa0 + sa10
  5. a2 = ( sa2 + sa4  +  sa6 + sa8) * 2
  6. a3 = ( sa1 + sa3 + sa5+ sa7 +sa9 ) *4
  7.  
  8. $ ACCUMULATE BEAMS FOR WATERPLANE  AREA
  9. b1 = wlb0 + wlb10
  10. b2 = ( wlb2 + wlb4  + wlb6 + wlb8) * 2
  11. b3 = ( wlb1 + wlb3 + wlb5+ wlb7 +wlb9 ) * 4
  12.  
  13. $ ACCUMULATE GIRTHS FOR WETTED SURFACE AREA
  14. s1 =  gir0 + gir10
  15. s2 = ( gir2 + gir4  + gir6 + gir8) * 2
  16. s3 = ( gir1 + gir3 +gir5+ gir7 +gir9 ) * 4
  17.  
  18. $ ACCUMULATE MOMENTS FOR LCB
  19. hm = (sa1 * 4) + (sa2 *2* 2) + (sa3 *3* 4)
  20. hm =  hm + (sa4 *4*2) + (sa5 *5*4) + (sa6 *6*2)
  21. hm =  hm + (sa7 *7*4) + (sa8 *8*2) + (sa9 *9*4)
  22. hm =  hm + (sa10 *10) 
  23.  
  24. $ ACCUMULATE MOMENTS FOR VCB
  25. vm = (sa1 * 4 * cav1) + (sa2 *2* cav2) + (sa3 *cav3* 4)
  26. vm =  vm + (sa4 *cav4*2) + (sa5 *cav5*4) + (sa6 *cav6*2)
  27. vm =  vm + (sa7 *cav7*4) + (sa8 *cav8*2) + (sa9 *cav9*4)
  28. vm =  vm + (sa10 * cav10) + (sa0 * cav0)
  29.  
  30. $ ACCUMULATE MOMENTS FOR CENTRE OF FLOTATION
  31. cf = (wlb1 * 4) + (wlb2 *2* 2) + (wlb3 *3* 4)
  32. cf =  cf + (wlb4 *4*2) + (wlb5 *5*4) + (wlb6 *6*2)
  33. cf =  cf + (wlb7 *7*4) + (wlb8 *8*2) + (wlb9 *9*4)
  34. cf =  cf + (wlb10 *10)
  35.  
  36. $CALCULATE VOLUME IN CUBIC METRES
  37. v  = ((a1 +a2 +a3) * Spacing / 3) 
  38.  
  39. $ CALCULATE FINAL VALUES
  40. Prismatic coeff      =   v/ (MaXa* Spacing*10)
  41. Displacement  kg    =   v * 1025   
  42. wettedArea sq m      =   (s1+s2+s3)* Spacing/3
  43. waterplane sq m      =  ( b1+b2+b3)*Spacing/3
  44. Longitudinal Centre of Buoyancy percentage = hm /(a1 +a2 +a3) *10
  45. Vertical CB From DWL = vm  / (a1 + a2 + a3)
  46. Centre of Flotation percentage = cf /(b1 +b2 +b3) * 10
  47.